! 1d 1d same

    else if (b_nd == 1) then
      if (trim(stack(stack_pointer - 1) % d1 % dimNames(1)) == &
          trim(stack(stack_pointer) % d1 % dimNames(1))) then

! 1d 1d diff
